home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00002Series_132.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  488 b   |  17 lines
  1. on mouseUp
  2.   if char 2 of field "modnummast" = "2" then
  3.     put chars(field "modnummast", 1, 8) into field "modnummast"
  4.     if char 9 of field "modnummast" = "." then
  5.       put field "modnummast"
  6.     else
  7.       put "." after field "modnummast"
  8.     end if
  9.   end if
  10.   if char 2 of field "modnummast" = "." then
  11.     put chars(field "modnummast", 1, 9) into field "modnummast"
  12.   end if
  13.   put field "wheelmod" & "5" after field "modnummast"
  14.   finder()
  15.   play frame item 5 of field "spec2"
  16. end
  17.